home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / nextparagraph.bed < prev    next >
Text File  |  1997-12-03  |  498b  |  48 lines
  1. /*
  2. ** $VER: NextParagraph.bed 1.0 (06.01.96)
  3. **
  4. ** Move the cursor to the start of the next paragraph
  5. **
  6. ** Modified by Marco Negri
  7. */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. str = ' ' || '09'X
  12.  
  13. SetLockInput ON
  14. SetLockDisplay ON
  15.  
  16. MoveSOL
  17.  
  18. DO FOREVER
  19.  
  20.     GetLine
  21.     IF COMPRESS(RESULT,str) = "" THEN BREAK
  22.  
  23.     MoveDown
  24.  
  25.     IF RC ~= 0 THEN DO
  26.         MoveEOL
  27.         EXIT
  28.     END
  29.  
  30. END
  31.  
  32. DO FOREVER
  33.  
  34.     GetLine
  35.     IF COMPRESS(RESULT,str) ~= "" THEN BREAK
  36.  
  37.     MoveDown
  38.  
  39.     IF RC ~= 0 THEN DO
  40.         MoveEOL
  41.         EXIT
  42.     END
  43.  
  44. END
  45.  
  46. SetLockInput OFF
  47. SetLockDisplay OFF
  48.